• Fórum
• Cursos
• Contato

• Home |
• Apostilas|
• Artigos|
• Componentes|
• Dicas|
• Arquivos|
• Empregos |
• Cursos online

Descrição do arquivo Arquivo .pas para manipular o componente twebbrowser da paleta internet no delphi 2005 / 2006. seguem as functions e as procedures do arquivo: function wb_documentloaded(wb: twebbrowser): boolean; function wb_querycommandenabled(wb: twebbrowser; const command: string): boolean; function variantisobject(const value: olevariant): boolean; function invokecmd(wb: twebbrowser; ncmdid: dword): boolean; overload; function invokecmd(wb: twebbrowser; invokeie: boolean; value1, value2: integer; var vain, vaout: olevariant): boolean; overload; { ************************************************************************* } procedure waitforbrowser(wb: twebbrowser); procedure wb_navigate(wb: twebbrowser; const url: string); procedure wb_setfocus(wb: twebbrowser); procedure wb_goback(wb: twebbrowser); procedure wb_goforward(wb: twebbrowser); procedure wb_stop(wb: twebbrowser); procedure wb_refresh(wb: twebbrowser); { ************************************************************************* } procedure wb_copy(wb: twebbrowser); procedure wb_paste(wb: twebbrowser); procedure wb_cut(wb: twebbrowser); procedure wb_selectall(wb: twebbrowser); procedure wb_save(wb: twebbrowser); { ************************************************************************* } procedure wb_scrolltotop(wb: twebbrowser); procedure wb_scrolltobottom(wb: twebbrowser); { ************************************************************************* } procedure setglobaloffline(value: boolean); function isglobaloffline: boolean; { ************************************************************************* } procedure wb_showprintdialog(wb: twebbrowser); procedure wb_showprintpreview(wb: twebbrowser); procedure wb_showpagesetup(wb: twebbrowser); procedure wb_showfinddialog(wb: twebbrowser); procedure wb_showpropertiesdialog(wb: twebbrowser); { ************************************************************************* } function wb_setcharset(wb: twebbrowser; const acharset: string): boolean; procedure wb_set3dborderstyle(wb: twebbrowser; bvalue: boolean); procedure wb_searchandhighlighttext(wb: twebbrowser; atext: string); procedure wb_showscrollbar(wb: twebbrowser; value: boolean); procedure wb_setzoom(wb: twebbrowser; size: twbfontsize); function wb_getzoom(wb: twebbrowser): twbfontsize; function wb_getcookie(wb: twebbrowser): string; { ************************************************************************* } procedure wb_showsourcecode(wb: twebbrowser); { ************************************************************************* } function getelementatpos(doc: ihtmldocument2; x, y: integer): ihtmlelement; function getzoneicon(iconpath: string; var icon: ticon): boolean; function getzoneattributes(const url: string): tzoneattributes; function getcachedfilefromurl(strul: string; var strlocalfile: string): boolean; { ************************************************************************* } function enumframes(ahtmldocument: ihtmldocument2; enumframesproc: tenumframesproc; data: integer): boolean; procedure wb_getobjectview(tv: ttreeview; wb: twebbrowser); function wb_getplaintext(wb: twebbrowser; s: tstrings): string; function wb_getfields(webbrowser: twebbrowser; sl: tstrings): boolean; procedure wb_getimages(awebbrowser: twebbrowser; sl: tstrings); procedure wb_getlinks(wb: twebbrowser; sl: tstrings); function wb_getdocumentsourcetostring(document: idispatch): string; exemplo de uso: vamos supor que você esteje fazendo uma aplicação aonde visualizará páginas html no twebbrowser. caso queira imprimir a página que está sendo vista e queira que a mesma, antes de impressa, seja visualizada como no internet explorer, basta chamar a função: wb_showprintpreview(webbrowser1); obs: não se esqueça de incluir a unit baixada dentro da unit que está sendo desenvolvida, o qual fará uso da mesma. espero ter contribuido! abraços!!!

Visualizar / inserir comentários

COLUNISTAS
Publicidade


Enquete Validações